home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / WSFILE.SIG < prev   
Text File  |  1983-01-04  |  4KB  |  132 lines
  1. * wsfile.sig 08/18/83
  2. * this module takes all of the data in the file and writes it to
  3. * a Wordstar data file and creates a Wordstar DOC file. The letter
  4. * or other document you are preparing is written after the introduction
  5. * this program creates using the variables set forth in the DOC file.
  6. * When you  run mailmerge, you can personalize a document to everyone
  7. * in the file. Since it takes time to write a big file - it gives
  8. * you a running report on where it is in the file
  9. ERASE
  10. ?'This Module will make a special MailMerge file for WordStar'
  11. ?' Do you wish to continue (Y/N) ? '
  12. SET CONSOLE OFF
  13. WAIT TO command
  14. SET CONSOLE ON
  15. IF command = 'Y' .OR. command = 'y'
  16.     STORE t TO continue
  17. ELSE
  18.     STORE f TO continue
  19. ENDIF command = Y
  20. DO WHILE continue
  21.     STORE 1 TO counter
  22.     ERASE
  23.     ACCEPT 'Enter Name of the WordStar-MailMerge file  ' TO file:dat
  24.     STORE !(file:dat) TO file:dat
  25.     STORE $(file:dat,1,8) TO file:dat
  26.     STORE file:dat+'.DOC'  TO file:doc
  27.     STORE file:dat+'.DAT'  TO file:dat
  28.     @ 03,10 SAY  'Creating WordStar-MailMerge Document file:  '+file:doc
  29.     SET CONSOLE OFF
  30.     SET ALTERNATE TO &file:doc
  31.     SET ALTERNATE ON
  32.     ?'.OP'
  33.     ?'.DF '+file:dat
  34.     ?'.RV '+' order-no,last-name, first-name,address1,address2,address3,city,state,zip,vol1,amount,entered,shipped,remark1,remark2,backord,,backo-ship1,backo-ship2,date-update'
  35.     ?'.. to automatically omit empty data fields'
  36.     ?'..print all items as "&item/o&" '
  37.     SET ALTERNATE OFF
  38.     SET CONSOLE ON
  39.     @ 05,10 SAY  ' Creating WordStar-MailMerge Data file:  '+file:dat
  40.     @ 07,10 SAY  'Writing record #     '
  41.     SET CONSOLE OFF
  42.     SET ALTERNATE TO &file:dat
  43.     SET ALTERNATE ON
  44.     GOTO TOP
  45.     DO WHILE .NOT. EOF
  46.         STORE CHR(34)+TRIM(lname) + CHR(34) TO lastname
  47.         IF fname = ' '
  48.             STORE ' ' TO firstname
  49.         ELSE
  50.             STORE CHR(34)+TRIM(fname) + CHR(34) TO firstname
  51.         ENDIF fname
  52.         IF addr1 = ' '
  53.             STORE ' ' TO address1
  54.         ELSE
  55.             STORE CHR(34)+TRIM(addr1)+CHR(34) TO address1
  56.         ENDIF addr1
  57.         IF addr2 = ' '
  58.             STORE ' ' TO address2
  59.         ELSE
  60.             STORE CHR(34)+TRIM(addr2)+CHR(34) TO address2
  61.         ENDIF addr2
  62.         IF addr3 = ' '
  63.             STORE ' ' TO address3
  64.         ELSE
  65.             STORE CHR(34)+TRIM(addr3)+chr(34) TO address3
  66.         ENDIF addr3
  67.         IF city = ' '
  68.             STORE ' ' TO city1
  69.         ELSE
  70.             STORE CHR(34)+TRIM(city)+CHR(34) TO city1
  71.         ENDIF city
  72.         IF state = ' '
  73.             STORE ' ' TO state1
  74.         ELSE
  75.             STORE chr(34)+state+CHR(34) TO state1
  76.         ENDIF state
  77.         IF zip = ' '
  78.             STORE ' ' TO zip1
  79.         ELSE
  80.             STORE CHR(34)+zip+CHR(34) TO zip1
  81.         ENDIF zip
  82.         IF vol1 = ' '
  83.             STORE ' ' TO volume1
  84.         ELSE
  85.             STORE CHR(34)+TRIM(vol1)+CHR(34) TO volume1
  86.         ENDIF vol1
  87.         IF rem1 = ' '
  88.             STORE ' ' TO remarks1
  89.         ELSE
  90.             STORE CHR(34)+TRIM(rem1)+CHR(34) TO remarks1
  91.         ENDIF rem1
  92.         IF rem2 = ' '
  93.             STORE ' ' TO remarks2
  94.         ELSE
  95.             STORE CHR(34)+trim(rem2)+CHR(34) TO remarks2
  96.         ENDIF rem2
  97.         IF bo = ' '
  98.             STORE ' ' TO backord1
  99.         ELSE
  100.             STORE CHR(34)+TRIM(bo)+CHR(34)TO backord1
  101.         ENDIF bo
  102.         ??  lastname  +','
  103.         ??  firstname +','
  104.         ??  address1 +','
  105.         ??  address2 +','
  106.         ??  address3 +','
  107.         ??  city1 +','
  108.         ??  volume1 +','
  109.         ??  STR(amt,8,2) + ','
  110.         ??  remarks1+','
  111.         ??  remarks2 +','
  112.         ??  backord1 +','
  113.         SKIP
  114.         SET CONSOLE ON
  115.         SET ALTERNATE OFF
  116.         SET CONSOLE ON
  117.         ?? CHR(8) + CHR(8)+CHR(8)+CHR(8)+CHR(8)+CHR(8)+STR(COUNTER,5)
  118.         SET CONSOLE OFF
  119.         SET ALTERNATE ON
  120.         STORE COUNTER + 1 TO COUNTER
  121.     ENDDO while not EOF
  122.     STORE f TO continue
  123. ENDDO continue
  124. SET ALTERNATE OFF
  125. SET CONSOLE ON
  126. RELEASE file:dat,file:doc,continue,length,counter
  127. STORE '?' TO command
  128. STORE ' ' TO printer
  129. STORE ' ' TO disk
  130. STORE '            ' TO filename
  131. STORE t TO more
  132.